home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / adodb / toexport.inc.php < prev    next >
PHP Script  |  2005-05-17  |  3KB  |  133 lines
  1. <?php
  2.  
  3. /** 
  4.  * @version V4.63 17 May 2005 (c) 2000-2005 John Lim (jlim@natsoft.com.my). All rights reserved.
  5.  * Released under both BSD license and Lesser GPL library license. 
  6.  * Whenever there is any discrepancy between the two licenses, 
  7.  * the BSD license will take precedence. 
  8.  *
  9.  * Code to export recordsets in several formats:
  10.  *
  11.  * AS VARIABLE
  12.  * $s = rs2csv($rs); # comma-separated values
  13.  * $s = rs2tab($rs); # tab delimited
  14.  * 
  15.  * TO A FILE
  16.  * $f = fopen($path,'w');
  17.  * rs2csvfile($rs,$f);
  18.  * fclose($f);
  19.  *
  20.  * TO STDOUT
  21.  * rs2csvout($rs);
  22.  */
  23.  
  24. // returns a recordset as a csv string
  25. function rs2csv(&$rs,$addtitles=true)
  26. {
  27.     return _adodb_export($rs,',',',',false,$addtitles);
  28. }
  29.  
  30. // writes recordset to csv file 
  31. function rs2csvfile(&$rs,$fp,$addtitles=true)
  32. {
  33.     _adodb_export($rs,',',',',$fp,$addtitles);
  34. }
  35.  
  36. // write recordset as csv string to stdout
  37. function rs2csvout(&$rs,$addtitles=true)
  38. {
  39.     $fp = fopen('php://stdout','wb');
  40.     _adodb_export($rs,',',',',true,$addtitles);
  41.     fclose($fp);
  42. }
  43.  
  44. function rs2tab(&$rs,$addtitles=true)
  45. {
  46.     return _adodb_export($rs,"\t",',',false,$addtitles);
  47. }
  48.  
  49. // to file pointer
  50. function rs2tabfile(&$rs,$fp,$addtitles=true)
  51. {
  52.     _adodb_export($rs,"\t",',',$fp,$addtitles);
  53. }
  54.  
  55. // to stdout
  56. function rs2tabout(&$rs,$addtitles=true)
  57. {
  58.     $fp = fopen('php://stdout','wb');
  59.     _adodb_export($rs,"\t",' ',true,$addtitles);
  60.     if ($fp) fclose($fp);
  61. }
  62.  
  63. function _adodb_export(&$rs,$sep,$sepreplace,$fp=false,$addtitles=true,$quote = '"',$escquote = '"',$replaceNewLine = ' ')
  64. {
  65.     if (!$rs) return '';
  66.     //----------
  67.     // CONSTANTS
  68.     $NEWLINE = "\r\n";
  69.     $BUFLINES = 100;
  70.     $escquotequote = $escquote.$quote;
  71.     $s = '';
  72.     
  73.     if ($addtitles) {
  74.         $fieldTypes = $rs->FieldTypesArray();
  75.         reset($fieldTypes);
  76.         while(list(,$o) = each($fieldTypes)) {
  77.             
  78.             $v = $o->name;
  79.             if ($escquote) $v = str_replace($quote,$escquotequote,$v);
  80.             $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
  81.             $elements[] = $v;
  82.             
  83.         }
  84.         $s .= implode($sep, $elements).$NEWLINE;
  85.     }
  86.     $hasNumIndex = isset($rs->fields[0]);
  87.     
  88.     $line = 0;
  89.     $max = $rs->FieldCount();
  90.     
  91.     while (!$rs->EOF) {
  92.         $elements = array();
  93.         $i = 0;
  94.         
  95.         if ($hasNumIndex) {
  96.             for ($j=0; $j < $max; $j++) {
  97.                 $v = $rs->fields[$j];
  98.                 if (!is_object($v)) $v = trim($v);
  99.                 else $v = 'Object';
  100.                 if ($escquote) $v = str_replace($quote,$escquotequote,$v);
  101.                 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
  102.                 
  103.                 if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
  104.                 else $elements[] = $v;
  105.             }
  106.         } else { // ASSOCIATIVE ARRAY
  107.             foreach($rs->fields as $v) {
  108.                 if ($escquote) $v = str_replace($quote,$escquotequote,trim($v));
  109.                 $v = strip_tags(str_replace("\n", $replaceNewLine, str_replace("\r\n",$replaceNewLine,str_replace($sep,$sepreplace,$v))));
  110.                 
  111.                 if (strpos($v,$sep) !== false || strpos($v,$quote) !== false) $elements[] = "$quote$v$quote";
  112.                 else $elements[] = $v;
  113.             }
  114.         }
  115.         $s .= implode($sep, $elements).$NEWLINE;
  116.         $rs->MoveNext();
  117.         $line += 1;
  118.         if ($fp && ($line % $BUFLINES) == 0) {
  119.             if ($fp === true) echo $s;
  120.             else fwrite($fp,$s);
  121.             $s = '';
  122.         }
  123.     }
  124.     
  125.     if ($fp) {
  126.         if ($fp === true) echo $s;
  127.         else fwrite($fp,$s);
  128.         $s = '';
  129.     }
  130.     
  131.     return $s;
  132. }
  133. ?>